home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / libs / tsipp / tsipp.lha / tsipp3.0a / demos / planettest.tcl < prev    next >
Encoding:
Text File  |  1992-11-02  |  853 b   |  26 lines
  1. #==============================================================================
  2. #                             planettest.tcl
  3. #------------------------------------------------------------------------------
  4. # A port of SIPP demo program planettest.c to Tcl-SIPP.
  5. #------------------------------------------------------------------------------
  6. # $Id: planettest.tcl,v 2.0 1992/11/02 03:55:30 markd Rel $
  7. #------------------------------------------------------------------------------
  8.  
  9. source util.tcl
  10. ParseArgs 3
  11.  
  12.  
  13. set SUBDIVS 50
  14.  
  15. set shader [SippShaderPlanet 0.4 0.0 0.5]
  16.  
  17. SippLightSourceCreate {1.0 1.0 1.0} {1.0 1.0 1.0} DIRECTION
  18.  
  19. SippObjectAddSubobj WORLD [SippSphere 1.0 $SUBDIVS $shader WORLD]
  20. SippObjectRotateZ WORLD -1.2
  21. SippObjectRotateX WORLD  0.2
  22.  
  23. SippCameraParams STDCAMERA {0.0 2.0 0.0} {0.0 0.0 0.0} {0.0 0.0 1.0} 0.75
  24.  
  25. DoRendering "planet"
  26.